(define (eof-object? x) (builtin eof-object? x))
(define (read-char) (builtin read-char))
(define (unread-char c) (builtin unread-char c))
(define (peek-char)
  (let* ((c (read-char)))
    (unread-char c)
    c))
